home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / rbbs_mpl.zip / MCFG0705.MRG < prev    next >
Text File  |  1992-07-05  |  12KB  |  262 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\STOCK\CONFIG.BAS to produce E:\RBBS\CHAT\CONFIG.BAS
  3. * E:\RBBS\STOCK\CONFIG.BAS:  Date 6-20-1992  Size 157813 bytes
  4. * ------------[ Created 07-05-1992 07:16:52 ]------------
  5. * REPLACING old line(s) by new
  6. 10000 ' CONFIG.BAS (RBBS-PC VERSION 17.4)
  7.       'by D. Thomas Mack, 39 Cranbury Drive, Trumbull, CT 06611 (up to 16)
  8.       '  Jon Martin, 4396 N Prairie Willow Ct, Concord, CA 94521 (up to 17.2B)
  9.       '  Ken Goosens, 5020 Portsmouth Road, Fairfax, VA 22032
  10.       '  Doug Azzarito, 5480 Eagle Lake Drive, Palm Beach Gardens, FL 33418
  11.       '
  12.       ' *******************************NOTICE**********************************
  13.       ' *  A limited license is granted to all users of this program and it's *
  14.       ' *  companion program, RBBS-PC (ver. 17.4), to make copies of this     *
  15.       ' *  program and distribute the copies to other users, on the following *
  16.       ' *  conditions                                                         *
  17.       ' *   1.   The copyright notices contained within this program are not  *
  18.       ' *        altered, bypassed, or removed.                               *
  19.       ' *   2.   The program is not to be disrtibuted to others in modified   *
  20.       ' *        form (i.e. the line numbers must remain the same).           *
  21.       ' *   3.   No fee is charged (or any other consideration received)      *
  22.       ' *        for coping or distributing these programs without an express *
  23.       ' *        written agreement with the authors.                          *
  24.       ' *                                                                     *
  25.       ' *      Copyright (c) 1983-1992 D. Thomas Mack, The Second Ring        *
  26.       ' ***********************************************************************
  27. '     $INCLUDE: 'CNFG-VAR.BAS'
  28.       CLEAR
  29. '
  30. ' ****************************************************************************
  31. ' *  DISPLAY THE CONFIG TITLE PAGE
  32. ' ****************************************************************************
  33. '
  34.       WIDTH 80
  35.       CLS
  36.       NOT.YET.IN$ = "[Not Implemented]"  ' Msg used in config for parm not yet implemented
  37.       NONE.PICKED$ = "<none>"    ' Standardized message
  38.       NUM.FILES = 8
  39.       NUM.GLOBAL = 4
  40.       NUM.MAIN = 18
  41.       NUM.SYSOP = 7
  42.       NUM.UTILITY = 12
  43.       NUM.LIBRARY = 7
  44.       VERSION.NUMBER$ = "17.4"
  45.       I! = FRE(C$)
  46.       KEY OFF
  47.       CALL CNFGINIT
  48.       PRINT TAB(60)"tm"
  49.       PRINT TAB(16) STRING$(15,205)" U S E R W A R E "STRING$(15,205)
  50.       PRINT
  51.       PRINT TAB(17)"Capital PC User Group User-Supported Software"
  52.       PRINT
  53.       X$ = "    "
  54. * ------[ first line different ]------
  55.       PRINT "Copyright (c) 1983-1991 D. Thomas Mack, 39 Cranbury Dr., Trumbull, CT. 06611"
  56.       PRINT
  57.       PRINT X$;"    If you use Maple RBBS-PC " + CONFIG.VERSION$ + " and find"
  58.       PRINT X$;"    it valuable, consider contributing to"
  59.       PRINT ""
  60.       PRINT X$;"                 Capital PC Software Exchange"
  61.       PRINT X$;"                     Post Office Box 1785"
  62.       PRINT X$;"                West Bethesda, Maryland  20827"
  63.       PRINT
  64.       PRINT X$;"    You are free to copy and share RBBS-PC provided"
  65.       PRINT X$;"      1.  This program is not distributed in modified form."
  66.       PRINT X$;"      2.  No fee or consideration is charged for RBBS-PC itself."
  67. * REPLACING old line(s) by new
  68. 10230 PRINT X$;"      3.  This notice is not bypassed or removed."
  69.       PRINT
  70. '
  71. ' *  DEFINE THE FUNCTIONS USED BY CONFIG
  72. '
  73.       DEF FNTI! = CSNG(FIX((VAL(MID$(TIME$,1,2)) * 60 * 60) _
  74.                          + (VAL(MID$(TIME$,4,2)) * 60) _
  75.                          + (VAL(MID$(TIME$,7,2)) * 1)))
  76.       DEF FNHSH(X$) = ((ASC(X$) * 100  _
  77.                          + ASC(MID$(X$,(LEN(X$)/2) + .1,1)) * 10  _
  78.                          + ASC(RIGHT$(X$,1))) MOD MAX.USR.FILE.SIZE.FRM.DEF) + 1
  79.       DEF FNHSH2(X$) = (ASC(MID$(X$,2,1)) * 10 + 7) MOD MAX.USR.FILE.SIZE.FRM.DEF
  80. * ------[ first line different ]------
  81.       DELAY! = FNTI! + 1
  82. * REPLACING old line(s) by new
  83. 12626 ON ILOOKUP GOSUB 18000, _  '  41 Field used to locate a users record
  84.                        18100, _  '  42 Field to distinguish users with same id
  85.                        17800, _  '  43 Where personal id begins in user rec
  86.                        17810, _  '  44 Length of personal id in user rec
  87.                        17830, _  '  45 First Name prompt
  88.                        17840, _  '  46 Last Name prompt
  89.                        17850, _  '  47 Enforce upload/download ratios
  90.                        17630, _  '  48 Restrict users by date
  91.                        18510, _  '  49 Security level when subscription expires
  92.                        18530, _  '  50 Days before expiration to warn user
  93.                        18520, _  '  51 Days a newuser gets when registers
  94.                        17610, _  '  52 Turn printer off on recycle
  95. * ------[ first line different ]------
  96.                        17620, _  '  53 Do Not write Uploadlg.def file? 'Pe 03/31/92
  97.                        21760, _  '  54 Buffer size for text files
  98.                        16032, _  '  55 Size of stack space to use
  99.                        22550, _  '  56 Notify users when SYSOP wants system?
  100.                        17845, _  '  57 Ask users their (city/state)
  101.                        12325, _  '  58
  102.                        21770, _  '  59 Internal Protocols stripped in Maple 'Pe 06/26/92
  103.                        21900     '  60 Voice synthesizer support
  104.       GOTO 12325
  105. * REPLACING old line(s) by new
  106. * ------[ first line different ]------
  107. 12647 ON ILOOKUP GOSUB 20000, _  ' 301 Drive for Chat
  108.                        20010, _  ' 302 Drive/path for directory
  109.                        20020, _  ' 303 Extension for directory lists
  110.                        20030, _  ' 304 Drive/path for work disk
  111.                        20040, _  ' 305 # of disks in Library
  112.                        20050, _  ' 306 # of Master directories
  113.                        20060, _  ' 307 # of subdirectories in each master
  114.                        20070, _  ' 308 Prefix of subdirectory on Library
  115.                        20080, _  ' 309 Name of subsystem command menu
  116.                        20090, _  ' 310 Symbols to use for menu commands
  117.                        20090, _  ' 311 Security levels for menu functions
  118.                        20100, _  ' 312 Drive/path of ARCHIVE utility
  119.                        20110, _  ' 313 Name of ARCHIVE utility
  120.                        12325, _  ' 314
  121.                        12325, _  ' 315
  122.                        12325, _  ' 316
  123.                        12325, _  ' 317
  124.                        12325, _  ' 318
  125.                        12325, _  ' 319
  126.                        12325     ' 320
  127.       GOTO 12325
  128. * REPLACING old line(s) by new
  129. * ------[ first line different ]------
  130. 17620 CALL GETNUMYN ("OMIT Users/File Name from UPLOADLG.DEF File ",MUSIC)  'Pe 03/31/92
  131.       RETURN
  132. * REPLACING old line(s) by new
  133. * ------[ first line different ]------
  134. 17650 CALL GETNUMYN ("AUTODOWNLOAD removed in Maple version (answer NO)",ASK.IDENTITY) 'Pe 06/27/92
  135.       RETURN
  136. * REPLACING old line(s) by new
  137. 18800 CALL GETNUMYN ("Set the Parameters new in " + CONFIG.VERSION$,AB)
  138.       IF NOT AB THEN _
  139.          RETURN
  140.       HJ$ = CHR$(13)
  141. '
  142. ' * SET THE PARAMETERS NEW TO THIS RELEASE OF RBBS-PC
  143. ' *  20 = Seconds to wait for ansi detect
  144. * ------[ first line different ]------
  145. ' *  96 = Seconds to display copyright notice
  146. ' *  97 = Prevent callers from quoting a reply
  147. ' * 159 = Min security to do personal uploads
  148. ' * 160 = Let msgs have multiple recipients
  149. ' * 171 = name of distribution list menu
  150. ' * 172 = drive/path where distribution lists stored
  151. ' * 173 = types of msg protection allowed
  152. ' * 292 = max # of minutes can bank
  153. '
  154.       KSTACKED$ = "20" + HJ$ + "96" + HJ$ + _
  155.                   "97" + HJ$ + "159" + HJ$
  156.       KSTACKED$ = KSTACKED$ + _
  157.                   "160" + HJ$ + "171" + HJ$ + _
  158.                   "172" + HJ$ + "173" + HJ$
  159.       KSTACKED$ = KSTACKED$ + _
  160.                   "292" + HJ$
  161.       IPAGE = 1
  162.       RETURN
  163. '
  164. ' * LET THE SYSOP SPECIFY THE NUMBER OF RECORDS IN THE USER FILE
  165. '
  166. * REPLACING old line(s) by new
  167. 20000 LOCATE 18,1
  168. * ------[ first line different ]------
  169.       A$ = "Specify Drive for CHAT work files in the range A->" + M$ + "(or NONE) " 'Pe 03/31/92
  170.       MAX = 4
  171.       GOSUB 13599
  172.       LIBRARY.DRIVE$ = HJ$
  173.       IF LEN(HJ$) > 1 AND HJ$ <> "NONE" THEN _
  174.          GOTO 20000
  175.       IF LIBRARY.DRIVE$ = "NONE" THEN _
  176.          LIBRARY.DRIVE$ = "" _
  177.       ELSE LIBRARY.DRIVE$ = LIBRARY.DRIVE$ + ":"
  178.       RETURN
  179. '
  180. ' * LIBRARY DIRECTORY/PATH
  181. '
  182. * REPLACING old line(s) by new
  183. 23630 SK = 0
  184.       GOSUB 30040              ' <----Print message headers
  185.       FILNUM = 1
  186.       GOSUB 30050
  187.       FIELD 1,128 AS MESSAGE.RECORD$
  188. * ------[ first line different ]------
  189.       IS.HEADER$ = CHR$(225) + CHR$(226)
  190.       FOR I = FIRST.MESSAGE.RECORD TO NEXT.MESSAGE.RECORD - 1
  191.          GET 1,I
  192.          IF INSTR(IS.HEADER$,MID$(MESSAGE.RECORD$,116,1)) = 0 THEN _
  193.             GOTO 23725
  194.          IF VAL(MID$(MESSAGE.RECORD$,117,4)) > 0 AND _
  195.             SK < VAL(MID$(MESSAGE.RECORD$,2,4)) THEN _
  196.             SK = VAL(MID$(MESSAGE.RECORD$,2,4)) : _
  197.             I = LOC(1) + VAL(MID$(MESSAGE.RECORD$,117,4)) - 1 _
  198.          ELSE GOTO 23725
  199.          I$ = "K"
  200.          IF MID$(MESSAGE.RECORD$,116,1) = CHR$(225) THEN _
  201.             I$ = "A"
  202.          IF LOC(1) > NEXT.MESSAGE.RECORD - 1 THEN _
  203.             GOTO 23730
  204.          PRINT LEFT$(MESSAGE.RECORD$,5) + " " + _
  205.                MID$(MESSAGE.RECORD$,76,25) + " " + _
  206.                MID$(MESSAGE.RECORD$,101,15) + " " + _
  207.                I$ + " " + _
  208.                MID$(MESSAGE.RECORD$,117,4) + " " + _
  209.                STR$(LOC(1)) + " "  + _
  210.                STR$(I)
  211.          SK = VAL(MID$(MESSAGE.RECORD$,2,4))
  212.          IF RB AND VAL(MID$(MESSAGE.RECORD$,2,4)) = CALLS.TODATE! THEN _
  213.             GOTO 23730
  214.          IF RB THEN _
  215.             GOSUB 50580
  216. * REPLACING old line(s) by new
  217. 24800 CLS
  218.       I! = FRE(C$)
  219.       COLOR 0,7,0
  220. * ------[ first line different ]------
  221.       LOCATE 1,3
  222.       PRINT " Maple RBBS-PC Default Configuration " + CONFIG.VERSION$";
  223.       IF CONFERENCE.MODE THEN _
  224.          GOSUB 24970
  225.       COLOR FG,BG,BORDER
  226.       PRINT " Page" + STR$(DISPLAYED.PAGE.NUMBER) + " of" + STR$(MAXIMUM.DISPLAYABLE.PAGES)
  227.       RETURN
  228. '
  229. ' * ROUTINE TO DISPLAY CONFERENCE MAINTENANCE MODE IN CONFIG'S DISPLAYS
  230. '
  231. * REPLACING old line(s) by new
  232. 50580 OLD = LOC(1)
  233.       GET 1,I + 1
  234.       IF (MID$(MESSAGE.RECORD$,116,1) = CHR$(225) _
  235.          OR  MID$(MESSAGE.RECORD$,116,1) = CHR$(226)) _
  236.          AND (MID$(MESSAGE.RECORD$,61,1) = ":" _
  237. * ------[ first line different ]------
  238.          AND MID$(MESSAGE.RECORD$,70,1) = "-" _
  239.          AND MID$(MESSAGE.RECORD$,73,1) = "-") THEN _
  240.          RETURN
  241.       PRINT "Message chain broken at record number " + STR$(OLD)
  242.       PRINT "Message chain repair in progress!
  243.       FOR IQ = OLD + 1 TO NEXT.MESSAGE.RECORD - 1
  244.          GET 1,IQ
  245.          IF (MID$(MESSAGE.RECORD$,116,1) = CHR$(225) _
  246.             OR MID$(MESSAGE.RECORD$,116,1) = CHR$(226)) _
  247.             AND (MID$(MESSAGE.RECORD$,61,1)  = ":" _
  248.             AND  MID$(MESSAGE.RECORD$,64,1)  = ":" _
  249.             AND  MID$(MESSAGE.RECORD$,70,1) = "-" _
  250.             AND  MID$(MESSAGE.RECORD$,73,1) = "-") THEN _
  251.             GET 1,OLD : _
  252.             MID$(MESSAGE.RECORD$,117,4) = STR$(IQ - OLD) : _
  253.             PUT 1,OLD : _
  254.             PRINT "Message chain repaired." : _
  255.             I = IQ : _
  256.             RETURN
  257.       NEXT
  258.       RETURN 23730
  259. '
  260. ' * COMMON SUBROUTINE TO HASH A USER'S NAME TO FIND THE CORRECT USER RECORD #
  261. '
  262.